home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2000 November / Maximum CD 2000 Nov.iso / AofE-Conquerers / age2xtrial.exe / CABFILE / MSGAME.CAB / Data / gamedata_x1.drs / Unnamed File 000029.bina < prev    next >
Text File  |  2000-07-18  |  19KB  |  629 lines
  1. ; Common constants used in AI goals - other constants will follow the specific goals
  2.     ; Common.
  3.     (defconst NO 0)         ;Used to indicate not set or initial value (as Normal)
  4.     (defconst YES 1)         ;Used to indicate set
  5.     (defconst NORMAL 0)     ;Used for default values
  6.     (defconst NOTICE 99)  ;Used for special highlight or initialization values that should be set
  7.  
  8.     ; Constants used for ratings (i.e. monk-rating)
  9.     (defconst EXCELLENT 99); For any rating-type value highest to lowest
  10.     (defconst GOOD    70)        
  11.     (defconst MEDIUM 50)
  12.     (defconst FAIR 30)
  13.     (defconst POOR 10) 
  14.  
  15.     ; Constants used for combat or defense strategy selection
  16.     (defconst INFANTRY 1)
  17.     (defconst CAVALRY 2)
  18.     (defconst LIGHTCAV 3)
  19.     (defconst CAVARCHER 4)
  20.     (defconst ARCHER 5)
  21.     (defconst EAGLEMAN 6)
  22.     (defconst SCORPION 12)
  23.     (defconst UNIQUE 13)
  24.     (defconst UNIT20 20) ;SP - wasn't sure what 20 was used for in combat-arm and combat-supp
  25.  
  26. ;NOTE: Goal 1 0 = no boats; Goal 1 1 = boats; Goal 1 10 = lotsa boats (island map)
  27.     (defconst boat-strategy 1)
  28.     (defconst SOMEBOATS 1)    ;this actually means we're on a water map
  29.     (defconst MANYBOATS 10)    ; this actually means we're on an islands map
  30.  
  31. ;goal 2 0 okay on boats; 2 1 need warships! 2 2 we've won with ships
  32.     (defconst boats-needed 2)
  33.     (defconst WARSHIPS 1)    ;I don't think this is used any more
  34.     (defconst CONTROL 2)
  35.  
  36. ;Goal  3 0 = military parity; Goal  3 1 = an enemy outnumbers us!
  37.     (defconst military-parity 3)
  38.     ;uses NO, YES
  39.     (defconst SUPERIOR 2)
  40.  
  41. ;goal  4 = used to track attack group AI
  42.     (defconst attack-control 4)
  43.     ;SP - need doc for
  44.     ;0=   okay to launch an attack
  45.     ;1=    not okay - because we're outnumbered, building a wonder, or have no enemies
  46.     ;2=    not okay - because we lack siege
  47.     ;3=    not okay - because we're trying to rush to the next age and want to limit losses
  48.  
  49. ;goal  5 = controls gather rates - 5 0 = normal; 5 1 = wood; 5 2 = food; 5 3 = gold; 5 4 = stone
  50.     (defconst resource-needed 5)
  51.     (defconst WOOD 1)
  52.     (defconst FOOD 2)
  53.     (defconst GOLD 3)
  54.     (defconst STONE 4)
  55.     ;(defconst GOLD-STONE 5) this means you want both gold & stone
  56.  
  57. ;goal  6 = controls rushes!; also uses NOTICE
  58.     (defconst rush-control 6)
  59.     (defconst FEUDAL 2) ;we have just eliminated this as too puny
  60.     (defconst CASTLE 3)
  61.     (defconst IMPERIAL 4)
  62.     (defconst RUSHING 10)
  63.     (defconst BOOMING 18)
  64.     (defconst FEEDING 19)
  65. ;goal 7 used for deathmatch to determine whether or not to build more units
  66.     (defconst need-deathmatch-villagers 7)
  67.     ;uses NO, YES
  68. ;goal 8 secondary-build controls secondary builds (ensures there are already soldiers before doing a secondary build)
  69.     (defconst secondary-build 8)
  70.     ;0 = it's okay to build a secondary unit
  71.     ;1 = don't build a secondary unit
  72. ;goal 9 resource-supp used in conjunction with resource-needed to determine what to gather
  73.     (defconst resource-supp 9)
  74.     (defconst FOOD-ONLY 2)
  75.     (defconst GOLD-ONLY 3)
  76.     (defconst WOOD-FOOD 12)
  77.     (defconst WOOD-GOLD 13)
  78.     (defconst WOOD-STONE 14)
  79.     (defconst FOOD-GOLD 23)
  80.     (defconst FOOD-STONE 24)
  81. ;goal 10 used to keep from building siege if I have few or no other units
  82.     (defconst soldiers-available 10)
  83. ;goal 11 = used to determine your main combat arm; in deathmatch, it determines your unique unit type
  84.     (defconst combat-arm  11)
  85.     ;--Converted to constant  combat-arm, uses common offense/defense unit line numbers.
  86.         ;repl    goal 11 1 = Infantry    goal  12 1
  87.         ;repl    goal 11 2 = Cavalry        goal  12 2
  88.         ;repl    goal 11 3 = Light Cav    goal  12 3
  89.         ;repl    goal 11 4 = Cav Archer    goal  12 4
  90.         ;repl    goal 11 5 = Archer        goal  12 5
  91.         ;repl    goal 11 6 = Eagle Man    goal  12 6
  92.         ;repl                 scorpion =    goal  12 12
  93.         ;repl    goal 11 13 = Unique
  94.  
  95. ;goal  12 = used to supplement goal 11. 
  96.     (defconst combat-supp 12)
  97.     ; Uses combat and defense strategy standard codes
  98.  
  99. ;goal  13 = used to keep CP from attacking if we the player don't want him to do so.
  100.     (defconst attack-enabled 13)
  101.     ; uses YES & NO. I.e., "No" means don't attack. 
  102.  
  103. ;goal  14 helps in age advancement 
  104.             (defconst age-advancement 14) ; Uses NO, NOTICE
  105.             ;--Converted 14 to constant  age-advancement  (was 0,99)
  106.             ;SP - we should document our notice value -what does it indicate?
  107.             ;NO = it's okay to start saving up for the next age advance, assuming all other criteria are met
  108.             ;NOTICE - we are currently researching the next age. Keeps the CP from trying to "save up" for that age when it's already researching it
  109.  
  110. ;goal  15 controls warboat builds according to pop cap; 15 0 = build warships
  111.             (defconst make-warboat 15) ; Uses NO, YES
  112.             ;--Converted 15 to constant  make-warboat  Standard 0 = NO, 1 = YES
  113. ;goal  16 helps control upgrade conflicts
  114.             (defconst upgrade-conflict 16)
  115.             ;NOTICE is  99 -- it means we're saving for age advancement or a wonder
  116. ;goal  17 controls builds based on civ type before unique units are available
  117.             (defconst pre-unique-arm 17)
  118.             ;SP - need doc for
  119.             ;1 = we're training infantry (until our castle is finished)
  120.             ;2= we're training cavalry (till our castle is finished)
  121.             ;3= we're training light-cavalry (till our castle is finished)
  122.             ;4 = we're training cav archers (till our castle is finished)
  123.             ;5 = we're training archers (till our castle is finished)
  124.             ;note that these numbers correspond to the combat-arm and combat-supp goals above.
  125. ;goal 18 = used to decide on personalities 
  126. ;    goal 18 1 = feeder; 18 2 = boomer; 18 3 = bully; 18 4 = liar; 18 5 = "ally"
  127.             (defconst personality 18)
  128.             (defconst FEEDER 1)
  129.             (defconst BOOMER 2)
  130.             (defconst BULLY  3) ;m
  131.             (defconst LIAR 4)  
  132.             (defconst ALLY 5) ;m
  133.             (defconst SENTTRIBUTE 10) ;SP - not sure about this one, check and correct
  134.             ;SP: Document 11
  135.             ;SP: Document 12
  136.             ;SP: Document 13
  137.             ;SP: Document 14
  138.             ;SP: Document 15
  139.             (defconst TRADENEUTRAL 50) ;SP - not sure about this one, check and correct
  140.  
  141. ;goal  19 = make-villagers ; used to have the CP build tons of military in diplomacy
  142.             (defconst make-villagers 19)
  143. ;goal  20 = helps control wonder-building
  144.             (defconst wonder-attempt 20) ; Uses NO, YES, POSSIBLE, MAYBE, NOTICE
  145.             (defconst POSSIBLE 10)
  146.             (defconst MAYBE 90)          ;SP:Not sure on this one, took a guess.
  147.             ;--Converted to constant  wonder-attempt  Standard 0 = NO, 1 = YES
  148.             ;if you are playing kill the wonder, uses two different codes: 
  149.             (defconst ATTACK 1)    ;kill the wonder
  150.             (defconst DEFEND 0) ;save the wonder
  151. ;goal 21 = helps control castle-building
  152.             (defconst castle-attempt 21) ; Uses: NO, YES
  153.             ;--Converted to constant castle-attempt   Standard 0=NO, 1 = YES
  154.             ;sandy - is goal 21 2 the 'possible/attempt' state?  Can I change them to 10s?
  155.             ;0 = not planning to build a castle. 
  156.             ;1 = want to build a castle, but haven't succeeded yet.
  157.             ;2 = have already built 1 castle. Will build more if convenient. 
  158. ;goal 22 = used to help in diplomacy
  159. ;goal 23 = goal 23 2 we are the main ship builder. 
  160.             (defconst sea-owner 23) ; Uses: NO, YES, NOTICE
  161.             ;--Converted 23 to constant sea-owner
  162.             ;SP: Note changed all '2' to YES, all 0 to NO, all 99 to NOTICE.   
  163. ;goal 24 = used to control the CP stopping giving away tribute to the player when 
  164.         ;asked to do so
  165.         ;uses NO, YES
  166. ;goal 25 = controls alliance & resource types 
  167.     ;uses WOOD, FOOD, GOLD, STONE, NOTICE, NO. also uses
  168.             (defconst CASTLE-AGE-WOOD 11)
  169.             (defconst CASTLE-AGE-FOOD 12)
  170.             (defconst CASTLE-AGE-GOLD 13)
  171.             (defconst CASTLE-AGE-STONE 14)
  172.             (defconst IMPERIAL-AGE-WOOD 21)
  173.             (defconst IMPERIAL-AGE-FOOD 22)
  174.             (defconst IMPERIAL-AGE-GOLD 23)
  175.             (defconst IMPERIAL-AGE-STONE 24)
  176. ;goal 26 = checks to see how big the enemy military is in absolute terms. 
  177.             (defconst enemy-soldiers 26) ;the number given is app the enemy's size
  178.             (defconst siege-rating 26) ;uses GOOD, FAIR, POOR -- used only in wonder-kill
  179. ;goal 27 = determines monk prowess  
  180.             (defconst monk-rating 27)  ;Uses: GOOD, FAIR, NO
  181.             ;--Converted 27 to constant monk-rating
  182.             ; Changed to GOOD = good monks  FAIR = bad monks  POOR = terrible monks,  NO = no monks
  183. ;goal 28 = helps keep alliances straight
  184.             (defconst get-mad 28)
  185.             ;SP-uses NO, YES, 
  186.             (defconst ANGRY 2)
  187.             (defconst ANGRIER 3)
  188.             (defconst ANGRIEST 4)
  189. ;goal 29 = controls tribute for feeder personalities
  190. ;goal 30 = toggle to control boat-building
  191.             (defconst make-fire-boat 30) ; Uses: NO, YES
  192.             ;--Converted 30 to constant make-fire-boat
  193. ;goal 31 1 = infantry
  194.             (defconst infantry-upgrades 31)
  195.     ;SP: Need documentation
  196.     ;0 = not training infantry
  197.     ;1 = training infantry
  198. ;goal 32 1 = archers
  199.             (defconst archer-upgrades 32)
  200.     ;SP: Need documentation
  201.     ;0 = not training archers
  202.     ;1 = training archers
  203. ;goal 33 1 = cav
  204.             (defconst cav-upgrades 33)
  205.     ;SP: Need documentation
  206.     ;0 = not training cav
  207.     ;1 = training cav
  208. ;goal 34 used to see if we are short on siege equipment
  209.             (defconst siege-available 34)
  210.     ;0 = NO (we don't have enough siege)
  211.     ;1 = YES (we have some siege)
  212. ;goal 35 = used for diplomacy on Easy & Easiest difficulty levels only. Also used to track
  213. ;used to calculate enemy navy size on higher levels of difficulty
  214. ;goal 36, 37, 38, 39 = wood, food, gold, stone checks for script parts that require them. 
  215.     ;SP: Need documentation
  216. ;goal 40 = wall-construction
  217.             (defconst wall-build 40) ; Uses: NO, YES, NOTICE
  218.             ;Converted 40 to constant wall-build  
  219.             ;previously used 40 0 = walls off 40 1 = walls on, and 10 as initialized.
  220.             ;Converted to NO, YES, NOTICE (was 10).
  221.             ;uses POOR = 10, for not building walls at first, then switching. 
  222. ;timers
  223. ;timer 1 = controls tribute
  224. ;timer 2 = controls attack groups
  225. ;timer 3 = checks on what we are currently producing
  226. ;timer 5 = used to control chat messages
  227. ;timer 6 = additional chat message help
  228. ;timer 7 = wall-building timer
  229. ;timer 8 = yet more chat-message help
  230. ;timer 9 = the lumber-camp timer
  231. ;timer 10 = used to see if we've risen in age. Once we're imperial, used to build extraneous units
  232. (defconst t-tribute 1)
  233. (defconst t-attackgroup 2)
  234. (defconst t-production 3)
  235. (defconst t-chat 5)
  236. (defconst t-chathelp 6)
  237. (defconst t-tower 7)
  238. (defconst t-chatmore 8)
  239. (defconst t-lumbercamp 9)
  240. (defconst t-ageup 10)
  241.  
  242. ;*************************************************************
  243. #load-if-defined POPULATION-CAP-25
  244. (defconst civ-dark-rush 10)
  245. (defconst civ-dark 11)
  246. (defconst civ-dark-mod 10)
  247. (defconst civ-feudal-mod 12)
  248. (defconst civ-feudal 13)
  249. (defconst civ-castle 15)
  250. (defconst pop-cap 25)
  251. (defconst deathmatch-unit-max 13)
  252.  
  253. (defconst feudal-town-size 20)
  254. (defconst castle-town-size 25)
  255. (defconst imperial-town-size 25)
  256. (defconst town-center-count 2)
  257.  
  258. #load-if-defined DIFFICULTY-EASIEST
  259. (defconst unit-max 19)
  260. #end-if
  261.  
  262. #load-if-defined DIFFICULTY-EASY
  263. (defconst unit-max 19)
  264. #end-if
  265.  
  266. #load-if-defined DIFFICULTY-MODERATE
  267. (defconst unit-max 21)
  268. #end-if
  269.  
  270. #load-if-defined DIFFICULTY-HARD
  271. (defconst unit-max 23)
  272. #end-if
  273.  
  274. #load-if-defined DIFFICULTY-HARDEST
  275. (defconst unit-max 23)
  276. #end-if
  277.  
  278. (defconst five-percent-pop 1)
  279. (defconst ten-percent-pop 3)
  280. (defconst fifteen-percent-pop 4)
  281. (defconst twenty-percent-pop 5)
  282. (defconst thirty-percent-pop 8)
  283. (defconst fifty-percent-pop 12)
  284. #end-if
  285. ;***************************
  286. #load-if-defined POPULATION-CAP-50
  287. (defconst civ-dark-rush 15)
  288. (defconst civ-dark 20)
  289. (defconst civ-dark-mod 15)
  290. (defconst civ-feudal-mod 20)
  291. (defconst civ-feudal 30)
  292. (defconst civ-castle 35)
  293. (defconst pop-cap 50)
  294. (defconst deathmatch-unit-max 25)
  295.  
  296. (defconst feudal-town-size 20)
  297. (defconst castle-town-size 25)
  298. (defconst imperial-town-size 30)
  299. (defconst town-center-count 3)
  300.  
  301. #load-if-defined DIFFICULTY-EASIEST
  302. (defconst unit-max 35)
  303. #end-if
  304.  
  305. #load-if-defined DIFFICULTY-EASY
  306. (defconst unit-max 35)
  307. #end-if
  308.  
  309. #load-if-defined DIFFICULTY-MODERATE
  310. (defconst unit-max 40)
  311. #end-if
  312.  
  313. #load-if-defined DIFFICULTY-HARD
  314. (defconst unit-max 45)
  315. #end-if
  316.  
  317. #load-if-defined DIFFICULTY-HARDEST
  318. (defconst unit-max 45)
  319. #end-if
  320.  
  321. (defconst five-percent-pop 2)
  322. (defconst ten-percent-pop 5)
  323. (defconst fifteen-percent-pop 7)
  324. (defconst twenty-percent-pop 10)
  325. (defconst thirty-percent-pop 15)
  326. (defconst fifty-percent-pop 25)
  327. #end-if
  328. ;***************************
  329. #load-if-defined POPULATION-CAP-75
  330. (defconst civ-dark-rush 20)
  331. (defconst civ-dark 25)
  332. (defconst civ-dark-mod 15)
  333. (defconst civ-feudal-mod 20)
  334. (defconst civ-feudal 35)
  335. (defconst civ-castle 40)
  336. (defconst pop-cap 75)
  337. (defconst deathmatch-unit-max 55)
  338.  
  339. (defconst feudal-town-size 20)
  340. (defconst castle-town-size 30)
  341. (defconst imperial-town-size 30)
  342. (defconst town-center-count 4)
  343.  
  344. #load-if-defined DIFFICULTY-EASIEST
  345. (defconst unit-max 56)
  346. #end-if
  347.  
  348. #load-if-defined DIFFICULTY-EASY
  349. (defconst unit-max 56)
  350. #end-if
  351.  
  352. #load-if-defined DIFFICULTY-MODERATE
  353. (defconst unit-max 63)
  354. #end-if
  355.  
  356. #load-if-defined DIFFICULTY-HARD
  357. (defconst unit-max 70)
  358. #end-if
  359.  
  360. #load-if-defined DIFFICULTY-HARDEST
  361. (defconst unit-max 70)
  362. #end-if
  363.  
  364. (defconst five-percent-pop 3)
  365. (defconst ten-percent-pop 8)
  366. (defconst fifteen-percent-pop 10)
  367. (defconst twenty-percent-pop 15)
  368. (defconst thirty-percent-pop 23)
  369. (defconst fifty-percent-pop 37)
  370. #end-if
  371. ;***************************
  372. #load-if-defined POPULATION-CAP-100
  373. (defconst civ-dark-rush 20)
  374. (defconst civ-dark 25)
  375. (defconst civ-dark-mod 15)
  376. (defconst civ-feudal-mod 20)
  377. (defconst civ-feudal 40)
  378. (defconst civ-castle 50)
  379. (defconst pop-cap 100)
  380. (defconst deathmatch-unit-max 70)
  381.  
  382. (defconst feudal-town-size 20)
  383. (defconst castle-town-size 30)
  384. (defconst imperial-town-size 35)
  385. (defconst town-center-count 5)
  386.  
  387. #load-if-defined DIFFICULTY-EASIEST
  388. (defconst unit-max 70)
  389. #end-if
  390.  
  391. #load-if-defined DIFFICULTY-EASY
  392. (defconst unit-max 70)
  393. #end-if
  394.  
  395. #load-if-defined DIFFICULTY-MODERATE
  396. (defconst unit-max 80)
  397. #end-if
  398.  
  399. #load-if-defined DIFFICULTY-HARD
  400. (defconst unit-max 90)
  401. #end-if
  402.  
  403. #load-if-defined DIFFICULTY-HARDEST
  404. (defconst unit-max 90)
  405. #end-if
  406.  
  407. (defconst five-percent-pop 5)
  408. (defconst ten-percent-pop 10)
  409. (defconst fifteen-percent-pop 15)
  410. (defconst twenty-percent-pop 20)
  411. (defconst thirty-percent-pop 30)
  412. (defconst fifty-percent-pop 50)
  413. #end-if
  414. ;***************************
  415. #load-if-defined POPULATION-CAP-125
  416. (defconst civ-dark-rush 20)
  417. (defconst civ-dark 25)
  418. (defconst civ-dark-mod 15)
  419. (defconst civ-feudal-mod 20)
  420. (defconst civ-feudal 40)
  421. (defconst civ-castle 55)
  422. (defconst pop-cap 125)
  423. (defconst deathmatch-unit-max 95)
  424. (defconst town-center-count 6)
  425.  
  426. (defconst feudal-town-size 20)
  427. (defconst castle-town-size 35)
  428. (defconst imperial-town-size 40)
  429.  
  430. #load-if-defined DIFFICULTY-EASIEST
  431. (defconst unit-max 90)
  432. #end-if
  433.  
  434. #load-if-defined DIFFICULTY-EASY
  435. (defconst unit-max 90)
  436. #end-if
  437.  
  438. #load-if-defined DIFFICULTY-MODERATE
  439. (defconst unit-max 103)
  440. #end-if
  441.  
  442. #load-if-defined DIFFICULTY-HARD
  443. (defconst unit-max 115)
  444. #end-if
  445.  
  446. #load-if-defined DIFFICULTY-HARDEST
  447. (defconst unit-max 115)
  448. #end-if
  449.  
  450. (defconst five-percent-pop 6)
  451. (defconst ten-percent-pop 13)
  452. (defconst fifteen-percent-pop 18)
  453. (defconst twenty-percent-pop 25)
  454. (defconst thirty-percent-pop 38)
  455. (defconst fifty-percent-pop 62)
  456. #end-if
  457. ;***************************
  458. #load-if-defined POPULATION-CAP-150
  459. (defconst civ-dark-rush 20)
  460. (defconst civ-dark 25)
  461. (defconst civ-dark-mod 15)
  462. (defconst civ-feudal-mod 20)
  463. (defconst civ-feudal 40)
  464. (defconst civ-castle 60)
  465. (defconst pop-cap 150)
  466. (defconst deathmatch-unit-max 120)
  467.  
  468. (defconst feudal-town-size 20)
  469. (defconst castle-town-size 35)
  470. (defconst imperial-town-size 40)
  471. (defconst town-center-count 7)
  472.  
  473. #load-if-defined DIFFICULTY-EASIEST
  474. (defconst unit-max 110)
  475. #end-if
  476.  
  477. #load-if-defined DIFFICULTY-EASY
  478. (defconst unit-max 110)
  479. #end-if
  480.  
  481. #load-if-defined DIFFICULTY-MODERATE
  482. (defconst unit-max 125)
  483. #end-if
  484.  
  485. #load-if-defined DIFFICULTY-HARD
  486. (defconst unit-max 140)
  487. #end-if
  488.  
  489. #load-if-defined DIFFICULTY-HARDEST
  490. (defconst unit-max 140)
  491. #end-if
  492.  
  493. (defconst five-percent-pop 7)
  494. (defconst ten-percent-pop 15)
  495. (defconst fifteen-percent-pop 22)
  496. (defconst twenty-percent-pop 30)
  497. (defconst thirty-percent-pop 45)
  498. (defconst fifty-percent-pop 75)
  499. #end-if
  500. ;***************************
  501. #load-if-defined POPULATION-CAP-175
  502. (defconst civ-dark-rush 20)
  503. (defconst civ-dark 25)
  504. (defconst civ-dark-mod 15)
  505. (defconst civ-feudal-mod 20)
  506. (defconst civ-feudal 40)
  507. (defconst civ-castle 65)
  508. (defconst pop-cap 175)
  509. (defconst deathmatch-unit-max 145)
  510.  
  511. (defconst feudal-town-size 20)
  512. (defconst castle-town-size 35)
  513. (defconst imperial-town-size 40)
  514. (defconst town-center-count 8)
  515.  
  516. #load-if-defined DIFFICULTY-EASIEST
  517. (defconst unit-max 125)
  518. #end-if
  519.  
  520. #load-if-defined DIFFICULTY-EASY
  521. (defconst unit-max 125)
  522. #end-if
  523.  
  524. #load-if-defined DIFFICULTY-MODERATE
  525. (defconst unit-max 145)
  526. #end-if
  527.  
  528. #load-if-defined DIFFICULTY-HARD
  529. (defconst unit-max 165)
  530. #end-if
  531.  
  532. #load-if-defined DIFFICULTY-HARDEST
  533. (defconst unit-max 165)
  534. #end-if
  535.  
  536. (defconst five-percent-pop 8)
  537. (defconst ten-percent-pop 18)
  538. (defconst fifteen-percent-pop 27)
  539. (defconst twenty-percent-pop 35)
  540. (defconst thirty-percent-pop 53)
  541. (defconst fifty-percent-pop 87)
  542. #end-if
  543. ;***************************
  544. #load-if-defined POPULATION-CAP-200
  545. (defconst civ-dark-rush 20)
  546. (defconst civ-dark 25)
  547. (defconst civ-dark-mod 15)
  548. (defconst civ-feudal-mod 20)
  549. (defconst civ-feudal 40)
  550. (defconst civ-castle 70)
  551. (defconst pop-cap 200)
  552. (defconst deathmatch-unit-max 170)
  553.  
  554. (defconst feudal-town-size 20)
  555. (defconst castle-town-size 35)
  556. (defconst imperial-town-size 40)
  557. (defconst town-center-count 9)
  558.  
  559. #load-if-defined DIFFICULTY-EASIEST
  560. (defconst unit-max 130)
  561. #end-if
  562.  
  563. #load-if-defined DIFFICULTY-EASY
  564. (defconst unit-max 130)
  565. #end-if
  566.  
  567. #load-if-defined DIFFICULTY-MODERATE
  568. (defconst unit-max 160)
  569. #end-if
  570.  
  571. #load-if-defined DIFFICULTY-HARD
  572. (defconst unit-max 190)
  573. #end-if
  574.  
  575. #load-if-defined DIFFICULTY-HARDEST
  576. (defconst unit-max 190)
  577. #end-if
  578.  
  579. (defconst five-percent-pop 10)
  580. (defconst ten-percent-pop 20)
  581. (defconst fifteen-percent-pop 30)
  582. (defconst twenty-percent-pop 40)
  583. (defconst thirty-percent-pop 60)
  584. (defconst fifty-percent-pop 100)
  585. #end-if
  586. ;*************************************************************
  587. ;*************************************************************
  588. #load-if-defined TINY-MAP
  589. (defconst feudal-mill-count 1)
  590. (defconst castle-mill-count 1)
  591. (defconst imperial-mill-count 1)
  592. (defconst mining-count 8)
  593. #end-if
  594. ;**************************
  595. #load-if-defined SMALL-MAP
  596. (defconst feudal-mill-count 1)
  597. (defconst castle-mill-count 1)
  598. (defconst imperial-mill-count 1)
  599. (defconst mining-count 8)
  600. #end-if
  601. ;**************************
  602. #load-if-defined MEDIUM-MAP
  603. (defconst feudal-mill-count 1)
  604. (defconst castle-mill-count 1)
  605. (defconst imperial-mill-count 1)
  606. (defconst mining-count 10)
  607. #end-if
  608. ;**************************
  609. #load-if-defined NORMAL-MAP
  610. (defconst feudal-mill-count 1)
  611. (defconst castle-mill-count 1)
  612. (defconst imperial-mill-count 2)
  613. (defconst mining-count 11)
  614. #end-if
  615. ;**************************
  616. #load-if-defined LARGE-MAP
  617. (defconst feudal-mill-count 1)
  618. (defconst castle-mill-count 2)
  619. (defconst imperial-mill-count 3)
  620. (defconst mining-count 12)
  621. #end-if
  622. ;**************************
  623. #load-if-defined GIANT-MAP
  624. (defconst feudal-mill-count 2)
  625. (defconst castle-mill-count 3)
  626. (defconst imperial-mill-count 4)
  627. (defconst mining-count 15)
  628. #end-if
  629.